home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / misc / toolbox.lha / Toolbox / lib / lalr / Errors.def < prev    next >
Encoding:
Modula Definition  |  1993-03-13  |  1.1 KB  |  48 lines
  1. (* $Id: Errors.md,v 2.1 1992/08/07 15:28:42 grosch rel $ *)
  2.  
  3. DEFINITION MODULE Errors;
  4.  
  5. FROM SYSTEM    IMPORT ADDRESS;
  6. FROM Positions    IMPORT tPosition;
  7.  
  8. CONST
  9.    NoText        = 0    ;
  10.    SyntaxError        = 1    ;    (* error codes        *)
  11.    ExpectedTokens    = 2    ;
  12.    RestartPoint        = 3    ;
  13.    TokenInserted    = 4    ;
  14.    WrongParseTable    = 5    ;
  15.    OpenParseTable    = 6    ;
  16.    ReadParseTable    = 7    ;
  17.  
  18.    Fatal        = 1    ;    (* error classes    *)
  19.    Restriction        = 2    ;
  20.    Error        = 3    ;
  21.    Warning        = 4    ;
  22.    Repair        = 5    ;
  23.    Note            = 6    ;
  24.    Information        = 7    ;
  25.  
  26.    None            = 0    ;
  27.    Integer        = 1    ;    (* info classes        *)
  28.    Short        = 2    ;
  29.    Long            = 3    ;
  30.    Real            = 4    ;
  31.    Boolean        = 5    ;
  32.    Character        = 6    ;
  33.    String        = 7    ;
  34.    Array        = 8    ;
  35.    Set            = 9    ;
  36.    Ident        = 10    ;
  37.  
  38. VAR Exit    : PROC;
  39.  
  40. PROCEDURE ErrorMessage    (ErrorCode, ErrorClass: CARDINAL; Position: tPosition);
  41. PROCEDURE ErrorMessageI    (ErrorCode, ErrorClass: CARDINAL; Position: tPosition;
  42.              InfoClass: CARDINAL; Info: ADDRESS);
  43. PROCEDURE Message  (ErrorText: ARRAY OF CHAR; ErrorClass: CARDINAL; Position: tPosition);
  44. PROCEDURE MessageI (ErrorText: ARRAY OF CHAR; ErrorClass: CARDINAL; Position: tPosition;
  45.              InfoClass: CARDINAL; Info: ADDRESS);
  46.  
  47. END Errors.
  48.